home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Serious Demos / PageSentry 2.5.1 CD Demo / Sample AppleScripts / RecyclePower < prev    next >
Text File  |  1996-02-11  |  521b  |  20 lines
  1. on pause(length)
  2.     local endTime
  3.     set endTime to (current date) + length
  4.     repeat while (current date) < endTime
  5.     end repeat
  6. end pause
  7.  
  8. --- PageSentry Notification Applet
  9. --- Recycle the power with a PowerKey
  10.  
  11. on «event SENTfail» sentryName given «class FURL»:failedURL, «class XTRA»:extra, «class STAT»:Status
  12.     tell application "PowerKey™ Extension"
  13.         set level of outlet 2 of unit 1 to 0
  14.     end tell
  15.     pause(10)
  16.     tell application "PowerKey™ Extension"
  17.         set level of outlet 2 of unit 1 to 100
  18.     end tell
  19. end «event SENTfail»
  20.